﻿Imports System.IO

Public Class frmMain


    Private Sub loadDrives()
        Dim logicalDrive As String
        For Each logicalDrive In Environment.GetLogicalDrives()
            logicalDrive = Replace(logicalDrive, "\", "")
            cmbdisk1.Items.Add(logicalDrive)
            cmbdisk2.Items.Add(logicalDrive)
        Next logicalDrive
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim ProcExitCode = dism.GetMountedWimInfo


    End Sub






End Class




